home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / Z-Misc Series / (k)zj.d64 / txt.real time < prev    next >
Text File  |  2007-03-01  |  1KB  |  67 lines
  1. ╔╘'╙ ╥┼┴╠ ╘╔═┼ ╬╧╫
  2.  
  3. BY ─ICK ╦LINGENS
  4. ─UTCH ├╧═┴╠ ╒SERS ╟ROUP
  5.  
  6. ╚ANDS ON KEYBOARD, TIME IN FRONT OF
  7. YOU ON THE SCREEN. ╬OT ONLY DURING A
  8. PROGRAM RUN, BUT ALSO WHILE EDITING.
  9.  
  10. ╔MPOSSIBLE? ╬O, ╒╙┼ CLOCK!
  11.  
  12. ╟ERARD ┬USKER, A MEMBER OF THE ─UTCH
  13. ├╧═┴╠ ╒SERS ╟ROUP, DEVELOPED A
  14. PACKAGE, CALLED ├╠╧├╦. ╧N ╔╥╤ THIS
  15. PACKAGE UPDATES THE INTERNAL CLOCK,
  16. SET WITH
  17.  
  18.    ╒╙┼ SYSTEM
  19.    SETTIME("12:13:14")
  20.  
  21. AND PRINTS THE REAL TIME ON THE
  22. SCREEN, AT THE POSITION YOU WANT AND
  23. IN ├╧═┴╠ FORMAT:
  24.  
  25.    12:13:15
  26.  
  27. ╧NCE THE PACKAGE IS ╠╔╬╦ED, THE
  28. FOLLOWING COMMANDS ARE POSSIBLE:
  29.  
  30. SHOWTIME(╘╥╒┼): ╨RINTS TIME ON
  31.                 SCREEN. ╘HE DEFAULT
  32.                 POSITION IS (1,1).
  33. TIMEPOS(X,Y)  : ╬EW CLOCK POSITION ON
  34.                 THE SCREEN.
  35. TIMECOLOR(N)  : ├OLOR OF THE DIGITS.
  36.                 ┴FTER N=-1 THE COLOR
  37.                 EQUALS THE TEXT
  38.                 COLOR.
  39.  
  40. ╘HE PACKAGE ON DISK IS A ROMMED ONE,
  41. BUT WITH THE PACKAGE PROCEDURE
  42.  
  43.  SETROMMED(╞┴╠╙┼)
  44.  
  45. IT IS POSSIBLE TO RAM IT, SO IT CAN
  46. BE SAVED ALONG WITH YOUR PROGRAMS.
  47. ╫ITH THE FUNCTION 
  48.  
  49.  ROMMED
  50.  
  51. ONE CAN LOOK AT THE STATUS OF THE
  52. PACKAGE (ROMMED OR NOT).
  53.  
  54. ╧N DISK THERE IS A ─┼═╧/├╠╧├╦ PROGRAM
  55. ILLUSTRATING THE THREE MAIN
  56. PROCEDURES IN THE PACKAGE.
  57.  
  58. ┴ SMALL PROGRAM FOLLOWS HERE.
  59.  
  60.    ╒╙┼ CLOCK
  61.    ╒╙┼ SYSTEM
  62.    SETTIME("12:13:14")
  63.    ╨┴╟┼
  64.    TIMEPOS(12,20)
  65.    TIMECOLOR(1)
  66.    SHOWTIME(╘╥╒┼)
  67.